home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / pbtool.exe / ISLEAP.BAS < prev    next >
BASIC Source File  |  1991-12-11  |  1KB  |  45 lines
  1. '----------------------------------------------------------
  2. '  PROGRAM: ISLEAP.BAS         PROGRAMMER: A. KELLETT
  3. '  DATE-WRITTEN: 06/03/91
  4. '  USING POWER BASIC V2.10A
  5. '
  6. '  THIS PROGRAM CHECKS FOR LEAP YEARS, YEAR MUST BE 4 DIGITS!
  7. '
  8. '  VERSION: 0.00    LAST UPDATED: 00/00/00
  9. '----------------------------------------------------------
  10. CLS
  11. LOCATE 1,25:PRINT "LEAP YEAR TEST PROGRAM"
  12. LOCATE 5,10:INPUT "ENTER 4 DIGIT YEAR ie 1977 [1600 thru 2900]  ";YEAR
  13.  
  14. IF YEAR < 1600 OR YEAR > 2900 THEN
  15.    LOCATE 8,10:PRINT "YEAR OUT OF RANGE..."
  16.    END
  17. END IF
  18.  
  19. GOSUB ISLEAPYEAR
  20.  
  21. IF ISLEAP = 1 THEN
  22.    PRINT "THAT IS A LEAP YEAR"
  23. ELSE
  24.    PRINT "THAT IS NOT A LEAP YEAR"
  25. END IF
  26.  
  27. END
  28. '
  29. '
  30. '--------------------------------------------------------------------
  31. ISLEAPYEAR:
  32.    IF YEAR/4 = INT(YEAR/4) THEN
  33.       ISLEAP = 1
  34.       IF YEAR/100 = INT(YEAR/100) THEN
  35.          ISLEAP = 0
  36.          IF YEAR/400 = INT(YEAR/400) THEN
  37.             ISLEAP = 1
  38.          END IF
  39.       END IF
  40.    ELSE
  41.       ISLEAP = 0
  42.    END IF
  43. RETURN
  44.  
  45.